home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / WINDOWS / UC3G_1.ARJ / BITBLT.SCR next >
Text File  |  1992-07-15  |  401b  |  14 lines
  1. i=0
  2. xStart = 100
  3. yStart = 100
  4. nWidth =  100
  5. nHeight = 100
  6. while(i < nWidth)
  7.   GdiEllipse(xStart,yStart,nWidth*2,nHeight*2)
  8.   GdiBitBlt(xStart-i,yStart-i,nWidth,nHeight,xStart,yStart)
  9.   GdiBitBlt(xStart+i,yStart+i,nWidth,nHeight,xStart,yStart)
  10.   GdiBitBlt(xStart+i,yStart-i,nWidth,nHeight,xStart,yStart)
  11.   GdiBitBlt(xStart-i,yStart+i,nWidth,nHeight,xStart,yStart)
  12.   i = i + 4
  13. endwhile
  14. exit